home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / Pgon.ray < prev    next >
Text File  |  1999-07-06  |  2KB  |  55 lines
  1. Viewpoint(1000, 1.6, -0.3)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5.  
  6. Polygon(4,        ' Number of points
  7.   100, -40, 0,    ' Point 1
  8.   100, -40, 100,  ' Point 2
  9.   0, -40, 100,    ' Point 3
  10.   0, -40, 0,      ' Point 4
  11.   0.7, 0.2, 0.2,  ' Ambient.
  12.   0.7, 0.2, 0.2,  ' Diffuse.
  13.   20, 0.35,       ' Specular.
  14.   0, 0, 0,        ' Reflected.
  15.   3, 1, 1.4,      ' TransN, n1, n2.
  16.   0, 0, 0         ' Tansmission.
  17. )
  18. Polygon(4,        ' Number of points
  19.   -100, -20, 0,   ' Point 1
  20.   -100, -20, 100, ' Point 2
  21.   0, -20, 100,    ' Point 3
  22.   0, -20, 0,      ' Point 4
  23.   0.2, 0.7, 0.2,  ' Ambient.
  24.   0.2, 0.7, 0.2,  ' Diffuse.
  25.   20, 0.35,       ' Specular.
  26.   0, 0, 0,        ' Reflected.
  27.   3, 1, 1.4,      ' TransN, n1, n2.
  28.   0, 0, 0         ' Tansmission.
  29. )
  30. Polygon(4,        ' Number of points
  31.   100, 0, 0,      ' Point 1
  32.   100, 0, 100,    ' Point 2
  33.   0, 0, 100,      ' Point 3
  34.   0, 0, 0,        ' Point 4
  35.   0.2, 0.2, 0.7,  ' Ambient.
  36.   0.2, 0.2, 0.7,  ' Diffuse.
  37.   20, 0.35,       ' Specular.
  38.   0, 0, 0,        ' Reflected.
  39.   3, 1, 1.4,      ' TransN, n1, n2.
  40.   0, 0, 0         ' Tansmission.
  41. )
  42. Polygon(4,        ' Number of points
  43.   -100, 20, 0,    ' Point 1
  44.   -100, 20, 100,  ' Point 2
  45.   0, 20, 100,     ' Point 3
  46.   0, 20, 0,       ' Point 4
  47.   0.7, 0.7, 0.7,  ' Ambient.
  48.   0.7, 0.7, 0.7,  ' Diffuse.
  49.   20, 0.35,       ' Specular.
  50.   0, 0, 0,        ' Reflected.
  51.   3, 1, 1.4,      ' TransN, n1, n2.
  52.   0, 0, 0         ' Tansmission.
  53. )
  54.  
  55.